home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / Internal_5_mouseUp for buttons.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  794 b   |  27 lines
  1. on mouseUp
  2.   set howList to "long,short,shot,hot"
  3.   set bPressed to the clickOn
  4.   set listName to the name of member the memberNum of sprite bPressed
  5.   set y to the number of chars in listName
  6.   if char y of listName = "d" then
  7.     set listName to char 1 to y - 2 of listName
  8.     set the memberNum of sprite bPressed to the number of member listName
  9.     if howList contains listName then
  10.       dissension("howCurr", listName)
  11.     else
  12.       dissension("whenCurr", listName)
  13.     end if
  14.   else
  15.     set z to listName & "/d"
  16.     set the memberNum of sprite bPressed to the number of member z
  17.     set howList to "long,short,shot,hot"
  18.     if howList contains listName then
  19.       unity("howCurr", listName)
  20.     else
  21.       unity("whenCurr", listName)
  22.     end if
  23.   end if
  24.   divide()
  25.   showCurrent()
  26. end
  27.